home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
326-350
/
disk_338
/
sastools
/
wbruise
/
hardtricks.def
< prev
next >
Wrap
Text File
|
1992-05-06
|
2KB
|
32 lines
(***************************************************************************
* Programme : Hardtricks.def (This is not a real programme, but a *
* definition module) *
* Usage : use it together with Hardtricks.mod in own programmes *
* Version : V1.11 *
* Date : 01.-04.05.1989 *
* Author : Jörg Sixt and Martin Murnleiter *
* Purpose : a nice mix of procedures *
* Language : Modula-2,AMSoft PD-Version from Fish 113 *
* Bugs : using devices would be better *
* *
* You may include both modules in your own programmes for free except for *
* commercial software (send me e.g. this programme then). Leave my name *
* in this source and mention me somewhere in the documentation/programme *
***************************************************************************)
DEFINITION MODULE Hardtricks ; (* my first one ! *)
TYPE Button = (off,on,toggle) ;
PROCEDURE PowerLED (How : Button) ; (* Control the red Power LED *)
PROCEDURE DriveLED (How : Button) ; (* and also the green Drive LED *)
PROCEDURE rightMouseButton() : BOOLEAN ; (* asks the right Mouse Button *)
PROCEDURE leftMouseButton() : BOOLEAN ; (* and this asks the left one *)
PROCEDURE AskRawKey() : CARDINAL ; (* last not least asking the key-
board is done with this *)
END Hardtricks .